unit unit_Utils;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;
type
   TConfOptions = Array[0..2] of String;
function IsNumeric(Test:String): Boolean;

implementation
var
  DataConf:TStringList;
function IsNumeric(Test:String): Boolean;
var
  c:Integer;

begin
  try
  c:= StrToInt(Test);    // Trailing blanks are not supported
  result:=true;
  except
  on Exception : EConvertError do
  result:=false;
  end;
end;



end.

